unit UConfiguration;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TFPreferences = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    CloseBtn: TButton;
    CBoxStatusBar: TCheckBox;
    procedure CloseBtnClick(Sender: TObject);
    procedure CBoxStatusBarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPreferences: TFPreferences;

implementation

uses MainUnit;

{$R *.dfm}

//Close Configuration form under cancle button click
procedure TFPreferences.CloseBtnClick(Sender: TObject);
begin
Close;
end;

//Show|Hide StatusBar under CheckBox activation
procedure TFPreferences.CBoxStatusBarClick(Sender: TObject);
begin
with CBoxStatusBar do
if CBoxStatusBar.Checked=TRUE then
MainForm1.StatusBar1.Visible:=TRUE
else
MainForm1.StatusBar1.Visible:=FALSE;
end;

end.
